From: Jim Blandy <jimb@redhat.com>
Date: Tue, 22 Jun 1993 03:23:38 +0000 (+0000)
Subject: * diary-ins.el (insert-cyclic-diary-entry): Fix date form.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95192
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=44e9df9abc6489ef9d3eaf2e3ee0dc37da86571a;p=emacs.git

* diary-ins.el (insert-cyclic-diary-entry): Fix date form.
---

diff --git a/lisp/diary-ins.el b/lisp/diary-ins.el
index edf4d6e66c9..a1418479c7e 100644
--- a/lisp/diary-ins.el
+++ b/lisp/diary-ins.el
@@ -147,16 +147,20 @@ Prefix arg will make the entry nonmarking."
   "Insert a cyclic diary entry starting at the date given by point.
 Prefix arg will make the entry nonmarking."
   (interactive "P")
-  (make-diary-entry
-   (format "%s(diary-cyclic %d %s)"
-           sexp-diary-entry-symbol
-           (calendar-read "Repeat every how many days: "
-                          '(lambda (x) (> x 0)))
-           (calendar-date-string
-            (or (calendar-cursor-to-date)
-                (error "Cursor is not on a date!"))
-            nil t))
-   arg))
+  (let* ((calendar-date-display-form
+          (if european-calendar-style
+              '(day " " month " " year)
+            '(month " " day " " year))))
+    (make-diary-entry
+     (format "%s(diary-cyclic %d %s)"
+             sexp-diary-entry-symbol
+             (calendar-read "Repeat every how many days: "
+                            '(lambda (x) (> x 0)))
+             (calendar-date-string
+              (or (calendar-cursor-to-date)
+                  (error "Cursor is not on a date!"))
+              nil t))
+     arg)))
 
 (defun insert-hebrew-diary-entry (arg)
   "Insert a diary entry.